home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgl.dir / Internal_8_reportSmallFaceSprite.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  427 b   |  22 lines
  1. property meSprite, meLoc, meVisibleLoc
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   meLoc = meSprite.loc
  7.   meVisibleLoc = meLoc + point(0, -500)
  8.   gmObject.reportSmallFaceSprite(me.spriteNum)
  9. end
  10.  
  11. on moveUp me
  12.   if meSprite.member.name <> "emptyFace" then
  13.     meSprite.loc = meVisibleLoc
  14.   end if
  15. end
  16.  
  17. on moveDown me
  18.   if meSprite.member.name <> "emptyFace" then
  19.     meSprite.loc = meLoc
  20.   end if
  21. end
  22.